VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAcceptance 
   Caption         =   "Implemented Spends"
   ClientHeight    =   18000
   ClientLeft      =   0
   ClientTop       =   -37840
   ClientWidth     =   27600
   OleObjectBlob   =   "frmAcceptance.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmAcceptance"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'WRITTEN BY JALISA GREENE
'LAST MODIFIED BY JALISA GREENE
'LAST UPDATED 6/11/2014

Option Explicit
Public LocID As Integer
Public rowNum As Integer
Dim containNum As Integer

Private Sub btnCancel_Click()
'**THIS SUB IS RUN WHEN THE USER HITS CANCEL**'
    frmAcceptance.Hide
End Sub

Private Sub UserForm_Initialize()
'**THIS SUB IS THE FIRST SUB RUN AFTER THE USER OPENS THIS USERFORM**"
    Dim aCell As Range
    For Each aCell In Worksheets("INV").Range("locations")
        If Len(aCell.Value) > 0 Then
        '**IF THE CELL IS NOT EMPTY, ADD LOCATION # TO THE DROPDOWN**'
        cmbLocations.AddItem (aCell.Value)
        End If
    Next

End Sub


Private Sub cmbContainers_Change()
'**ACTION SUB THAT IS RUN WHEN THE USER SELECTS A CONTAINER**'
    Call InsertInfo
End Sub

Private Sub cmbLocations_Change()
'**ACTION SUB THAT IS RUN WHEN THE USER SELECTS A LOCATION ID**'
    LocID = cmbLocations.Value
    Call InsertContainers
End Sub

Private Sub InsertContainers()
'**RUN AFTER THE USER SELECTS A LOCATION ID, PUTS ALL CONTAINER IDS FOR THAT SELECTED LOCATION ID IN THE CONTAINER DROPDOWN**'
cmbContainers.Clear

'Insert Container 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 27, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 55, False))
'Insert Container 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 79, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 107, False))
'Insert Container 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 131, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 159, False))
'Insert Container 4'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 183, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 211, False))
'Insert Container 5'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 235, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 263, False))
'Insert Container 6/ Compactor 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 287, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 321, False))
'Insert Container 7/ Compactor 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 339, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 373, False))
'Insert Container 8/ Compactor 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 391, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 425, False))

End Sub

Private Sub InsertInfo()
'**THIS SUB IS RUN AFTER A USER SELECTS THE CONTAINER THEY WANT TO EDIT. IT FINDS OUT WHICH CONTAINER WAS SELECTED, AND ENTERS IN THE ACHIEVED VALUES**'

    '**FIND OUT WHICH CONTAINER NUMBER THE USER SELECTED**'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        containNum = 1
        Call InsertAchievedContainer1
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        containNum = 2
        Call InsertAchievedContainer2
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        containNum = 3
        Call InsertAchievedContainer3
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        containNum = 4
        Call InsertAchievedContainer4
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        containNum = 5
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        containNum = 6
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        containNum = 7
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        containNum = 8
    End If
End Sub


Private Sub InsertAchievedContainer1()
    '**CONTAINER 1 CURRENT SPEND**'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 27, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 55, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 32, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 37, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 41, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 42, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 44, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 45, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 46, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 47, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 48, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 49, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 50, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 51, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 52, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 53, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 54, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 27, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    
    '**CONTAINER 1 BILLING ERRORS**'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 579, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 560, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 561, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 563, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 564, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 566, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 567, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 569, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 570, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 572, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 573, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 575, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 576, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 578, False), "Currency")
    txt1NotesBC.Value = Worksheets("ASR").Range("VJ" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 553, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        BCaccepted.Visible = True
        BCrejected.Visible = True
        lbl1NotesBC.Visible = True
        txt1NotesBC.Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        BCaccepted.Visible = False
        BCrejected.Visible = False
        lbl1NotesBC.Visible = False
        txt1NotesBC.Visible = False
    End If
    If Worksheets("ASR").Range("VI" & rowNum).Value = "Accepted" Then
        BCaccepted.Value = True
        BCrejected.Value = False
    ElseIf Worksheets("ASR").Range("VI" & rowNum).Value = "Rejected" Then
        BCaccepted.Value = False
        BCrejected.Value = True
    Else:
        BCaccepted.Value = False
        BCrejected.Value = False
    End If
    
    '**CONTAINER 1 RATE REDUCTIONS**'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 858, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 839, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 840, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 842, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 843, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 845, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 846, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 848, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 849, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 851, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 852, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 854, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 855, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 857, False), "Currency")
    txt1NotesRR.Value = Worksheets("ASR").Range("AGD" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 832, False) <> "" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        RRaccepted.Visible = True
        RRrejected.Visible = True
        lbl1NotesRR.Visible = True
        txt1NotesRR.Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        RRaccepted.Visible = False
        RRrejected.Visible = False
        lbl1NotesRR.Visible = False
        txt1NotesRR.Visible = False
    End If
    If Worksheets("ASR").Range("AGC" & rowNum).Value = "Accepted" Then
        RRaccepted.Value = True
        RRrejected.Value = False
    ElseIf Worksheets("ASR").Range("AGC" & rowNum).Value = "Rejected" Then
        RRaccepted.Value = False
        RRrejected.Value = True
    Else:
        RRaccepted.Value = False
        RRrejected.Value = False
    End If
    
    '**CONTAINER 1 VENDOR SWITCH**'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1111, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1137, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1140, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1141, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1118, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1119, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1121, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1122, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1124, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1125, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1127, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1128, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1130, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1131, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1133, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1134, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1136, False), "Currency")
     txt1NotesVS.Value = Worksheets("ASR").Range("AQY" & rowNum).Value
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1111, False) <> "" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        VSaccepted.Visible = True
        VSrejected.Visible = True
        lbl1NotesVS.Visible = True
        txt1NotesVS.Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        VSaccepted.Visible = False
        VSrejected.Visible = False
        lbl1NotesVS.Visible = False
        txt1NotesVS.Visible = False
    End If
    If Worksheets("ASR").Range("AQX" & rowNum).Value = "Accepted" Then
        VSaccepted.Value = True
        VSrejected.Value = False
    ElseIf Worksheets("ASR").Range("AQX" & rowNum).Value = "Rejected" Then
        VSaccepted.Value = False
        VSrejected.Value = True
    Else:
        VSaccepted.Value = False
        VSrejected.Value = False
    End If
    
    '**CONTAINER 1 SERVICE STANDARDIZATION**'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1416, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1419, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1397, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1398, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1400, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1401, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1403, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1404, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1406, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1407, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1409, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1410, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1412, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1413, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1415, False), "Currency")
    txt1NotesSS.Value = Worksheets("ASR").Range("BBR" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1390, False) <> "" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        SSaccepted.Visible = True
        SSRejected.Visible = True
        lbl1NotesSS.Visible = True
        txt1NotesSS.Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        SSaccepted.Visible = False
        SSRejected.Visible = False
        lbl1NotesSS.Visible = False
        txt1NotesSS.Visible = False
    End If
    If Worksheets("ASR").Range("BBQ" & rowNum).Value = "Accepted" Then
        SSaccepted.Value = True
        SSRejected.Value = False
    ElseIf Worksheets("ASR").Range("BBQ" & rowNum).Value = "Rejected" Then
        SSaccepted.Value = False
        SSRejected.Value = True
    Else:
        SSaccepted.Value = False
        SSRejected.Value = False
    End If

End Sub

Private Sub InsertAchievedContainer2()
    '**CONTAINER 2 CURRENT SPEND**
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 79, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 107, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 82, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 89, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 93, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 94, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 96, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 97, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 98, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 99, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 100, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 101, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 102, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 103, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 104, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 105, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 106, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 79, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    
    '**CONTAINER 2 BILLING ERRORS **'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 612, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 593, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 594, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 596, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 597, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 599, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 600, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 602, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 603, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 605, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 606, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 608, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 609, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 611, False), "Currency")
    txt1NotesBC.Value = Worksheets("ASR").Range("WQ" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 586, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        BCaccepted.Visible = True
        BCrejected.Visible = True
        lbl1NotesBC.Visible = True
        txt1NotesBC.Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        BCaccepted.Visible = False
        BCrejected.Visible = False
        lbl1NotesBC.Visible = False
        txt1NotesBC.Visible = False
    End If
    If Worksheets("ASR").Range("WP" & rowNum).Value = "Accepted" Then
        BCaccepted.Value = True
        BCrejected.Value = False
    ElseIf Worksheets("ASR").Range("WP" & rowNum).Value = "Rejected" Then
        BCaccepted.Value = False
        BCrejected.Value = True
    Else:
        BCaccepted.Value = False
        BCrejected.Value = False
    End If
    
    '**CONTAINER 2 RATE REDUCTIONS**'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 891, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 872, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 873, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 875, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 876, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 878, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 879, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 881, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 882, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 884, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 885, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 887, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 888, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 890, False), "Currency")
    txt1NotesRR.Value = Worksheets("ASR").Range("AHK" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 865, False) <> "" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        RRaccepted.Visible = True
        RRrejected.Visible = True
        lbl1NotesRR.Visible = True
        txt1NotesRR.Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        RRaccepted.Visible = False
        RRrejected.Visible = False
        lbl1NotesRR.Visible = False
        txt1NotesRR.Visible = False
    End If
    If Worksheets("ASR").Range("AHJ" & rowNum).Value = "Accepted" Then
        RRaccepted.Value = True
        RRrejected.Value = False
    ElseIf Worksheets("ASR").Range("AHJ" & rowNum).Value = "Rejected" Then
        RRaccepted.Value = False
        RRrejected.Value = True
    Else:
        RRaccepted.Value = False
        RRrejected.Value = False
    End If
    
    '**CONTAINER 2 VENDOR SWITCH**'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1144, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1170, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1173, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1174, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1151, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1152, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1154, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1155, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1157, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1158, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1160, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1161, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1163, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1164, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1166, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1167, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1169, False), "Currency")
     txt1NotesVS.Value = Worksheets("ASR").Range("ASF" & rowNum).Value
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1144, False) <> "" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        VSaccepted.Visible = True
        VSrejected.Visible = True
        lbl1NotesVS.Visible = True
        txt1NotesVS.Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        VSaccepted.Visible = False
        VSrejected.Visible = False
        lbl1NotesVS.Visible = False
        txt1NotesVS.Visible = False
    End If
    If Worksheets("ASR").Range("ASE" & rowNum).Value = "Accepted" Then
        VSaccepted.Value = True
        VSrejected.Value = False
    ElseIf Worksheets("ASR").Range("ASE" & rowNum).Value = "Rejected" Then
        VSaccepted.Value = False
        VSrejected.Value = True
    Else:
        VSaccepted.Value = False
        VSrejected.Value = False
    End If
    
    '**CONTAINER 2 SERVICE STANDARDIZATION**'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1449, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1452, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1430, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1431, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1433, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1434, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1436, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1437, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1439, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1440, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1442, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1443, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1445, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1446, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1448, False), "Currency")
    txt1NotesSS.Value = Worksheets("ASR").Range("BCY" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1423, False) <> "" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        SSaccepted.Visible = True
        SSRejected.Visible = True
        lbl1NotesSS.Visible = True
        txt1NotesSS.Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        SSaccepted.Visible = False
        SSRejected.Visible = False
        lbl1NotesSS.Visible = False
        txt1NotesSS.Visible = False
    End If
    If Worksheets("ASR").Range("BCX" & rowNum).Value = "Accepted" Then
        SSaccepted.Value = True
        SSRejected.Value = False
    ElseIf Worksheets("ASR").Range("BCX" & rowNum).Value = "Rejected" Then
        SSaccepted.Value = False
        SSRejected.Value = True
    Else:
        SSaccepted.Value = False
        SSRejected.Value = False
    End If

End Sub



Private Sub InsertAchievedContainer3()
    '**CONTAINER 3 CURRENT SPEND**'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 131, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 159, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 137, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 141, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 145, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 146, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 148, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 149, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 150, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 151, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 152, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 153, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 154, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 155, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 156, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 157, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 158, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 131, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    
    '**CONTAINER 3 BILLING ERRORS**'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 645, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 626, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 627, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 629, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 630, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 632, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 633, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 635, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 636, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 638, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 639, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 641, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 642, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 644, False), "Currency")
    txt1NotesBC.Value = Worksheets("ASR").Range("XX" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 619, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        BCaccepted.Visible = True
        BCrejected.Visible = True
        lbl1NotesBC.Visible = True
        txt1NotesBC.Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        BCaccepted.Visible = False
        BCrejected.Visible = False
        lbl1NotesBC.Visible = False
        txt1NotesBC.Visible = False
    End If
    If Worksheets("ASR").Range("XW" & rowNum).Value = "Accepted" Then
        BCaccepted.Value = True
        BCrejected.Value = False
    ElseIf Worksheets("ASR").Range("XW" & rowNum).Value = "Rejected" Then
        BCaccepted.Value = False
        BCrejected.Value = True
    Else:
        BCaccepted.Value = False
        BCrejected.Value = False
    End If
    
    '**CONTAINER 3 RATE REDUCTIONS**'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 924, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 905, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 906, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 908, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 909, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 911, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 912, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 914, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 915, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 917, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 918, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 920, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 921, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 923, False), "Currency")
    txt1NotesRR.Value = Worksheets("ASR").Range("AIR" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 898, False) <> "" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        RRaccepted.Visible = True
        RRrejected.Visible = True
        lbl1NotesRR.Visible = True
        txt1NotesRR.Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        RRaccepted.Visible = False
        RRrejected.Visible = False
        lbl1NotesRR.Visible = False
        txt1NotesRR.Visible = False
    End If
    If Worksheets("ASR").Range("AIQ" & rowNum).Value = "Accepted" Then
        RRaccepted.Value = True
        RRrejected.Value = False
    ElseIf Worksheets("ASR").Range("AIQ" & rowNum).Value = "Rejected" Then
        RRaccepted.Value = False
        RRrejected.Value = True
    Else:
        RRaccepted.Value = False
        RRrejected.Value = False
    End If
    
    '**CONTAINER 3 VENDOR SWITCH**'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1177, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1203, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1206, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1207, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1184, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1185, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1187, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1188, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1190, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1191, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1193, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1194, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1196, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1197, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1199, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1200, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1202, False), "Currency")
     txt1NotesVS.Value = Worksheets("ASR").Range("ATM" & rowNum).Value
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1177, False) <> "" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        VSaccepted.Visible = True
        VSrejected.Visible = True
        lbl1NotesVS.Visible = True
        txt1NotesVS.Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        VSaccepted.Visible = False
        VSrejected.Visible = False
        lbl1NotesVS.Visible = False
        txt1NotesVS.Visible = False
    End If
    If Worksheets("ASR").Range("ATL" & rowNum).Value = "Accepted" Then
        VSaccepted.Value = True
        VSrejected.Value = False
    ElseIf Worksheets("ASR").Range("ATL" & rowNum).Value = "Rejected" Then
        VSaccepted.Value = False
        VSrejected.Value = True
    Else:
        VSaccepted.Value = False
        VSrejected.Value = False
    End If
    '**CONTAINER 3 SERVICE STANDARDIZATION**'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1482, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1485, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1463, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1464, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1466, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1467, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1469, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1470, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1472, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1473, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1475, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1476, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1478, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1479, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1481, False), "Currency")
    txt1NotesSS.Value = Worksheets("ASR").Range("BEF" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1456, False) <> "" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        SSaccepted.Visible = True
        SSRejected.Visible = True
        lbl1NotesSS.Visible = True
        txt1NotesSS.Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        SSaccepted.Visible = False
        SSRejected.Visible = False
        lbl1NotesSS.Visible = False
        txt1NotesSS.Visible = False
    End If
    If Worksheets("ASR").Range("BEE" & rowNum).Value = "Accepted" Then
        SSaccepted.Value = True
        SSRejected.Value = False
    ElseIf Worksheets("ASR").Range("BEE" & rowNum).Value = "Rejected" Then
        SSaccepted.Value = False
        SSRejected.Value = True
    Else:
        SSaccepted.Value = False
        SSRejected.Value = False
    End If

End Sub


Private Sub InsertAchievedContainer4()
    '**CONTAINER 4 CURRENT SPEND**'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 183, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 211, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 189, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 193, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 197, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 198, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 200, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 201, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 202, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 203, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 204, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 205, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 206, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 207, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 208, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 209, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 210, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 183, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    
    '**CONTAINER 4 BILLING CORRECTIONS**'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 678, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 659, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 660, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 662, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 663, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 665, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 666, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 668, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 669, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 671, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 672, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 674, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 675, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 677, False), "Currency")
    txt1NotesBC.Value = Worksheets("ASR").Range("ZE" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 652, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        BCaccepted.Visible = True
        BCrejected.Visible = True
        lbl1NotesBC.Visible = True
        txt1NotesBC.Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        BCaccepted.Visible = False
        BCrejected.Visible = False
        lbl1NotesBC.Visible = False
        txt1NotesBC.Visible = False
    End If
    If Worksheets("ASR").Range("ZD" & rowNum).Value = "Accepted" Then
        BCaccepted.Value = True
        BCrejected.Value = False
    ElseIf Worksheets("ASR").Range("ZD" & rowNum).Value = "Rejected" Then
        BCaccepted.Value = False
        BCrejected.Value = True
    Else:
        RRaccepted.Value = False
        RRrejected.Value = False
    End If
    
    '**CONTAINER 4 RATE REDUCTIONS**'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 957, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 938, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 939, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 941, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 942, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 944, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 945, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 947, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 948, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 950, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 951, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 953, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 954, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 956, False), "Currency")
    txt1NotesRR.Value = Worksheets("ASR").Range("AJY" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 931, False) <> "" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        RRaccepted.Visible = True
        RRrejected.Visible = True
        lbl1NotesRR.Visible = True
        txt1NotesRR.Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        RRaccepted.Visible = False
        RRrejected.Visible = False
        lbl1NotesRR.Visible = False
        txt1NotesRR.Visible = False
    End If
    If Worksheets("ASR").Range("AJX" & rowNum).Value = "Accepted" Then
        RRaccepted.Value = True
        RRrejected.Value = False
    ElseIf Worksheets("ASR").Range("AJX" & rowNum).Value = "Rejected" Then
        RRaccepted.Value = False
        RRrejected.Value = True
    Else:
        RRaccepted.Value = False
        RRrejected.Value = False
    End If
    '**CONTAINER 4 VENDOR SWITCH**'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1210, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1236, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1239, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1240, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1217, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1218, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1220, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1221, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1223, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1224, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1226, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1227, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1229, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1230, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1232, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1233, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1235, False), "Currency")
     txt1NotesVS.Value = Worksheets("ASR").Range("AUT" & rowNum).Value
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1210, False) <> "" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        VSaccepted.Visible = True
        VSrejected.Visible = True
        lbl1NotesVS.Visible = True
        txt1NotesVS.Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        VSaccepted.Visible = False
        VSrejected.Visible = False
        lbl1NotesVS.Visible = False
        txt1NotesVS.Visible = False
    End If
    If Worksheets("ASR").Range("AUS" & rowNum).Value = "Accepted" Then
        VSaccepted.Value = True
        VSrejected.Value = False
    ElseIf Worksheets("ASR").Range("AUS" & rowNum).Value = "Rejected" Then
        VSaccepted.Value = False
        VSrejected.Value = True
    Else:
        VSaccepted.Value = False
        VSrejected.Value = False
    End If
    
    '**CONTAINER 4 SERVICE STANDARDIZATION**'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1515, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1518, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1496, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1497, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1499, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1500, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1502, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1503, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1505, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1506, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1508, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1509, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1511, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1512, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1514, False), "Currency")
    txt1NotesSS.Value = Worksheets("ASR").Range("BFM" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1489, False) <> "" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        SSaccepted.Visible = True
        SSRejected.Visible = True
        lbl1NotesSS.Visible = True
        txt1NotesSS.Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        SSaccepted.Visible = False
        SSRejected.Visible = False
        lbl1NotesSS.Visible = False
        txt1NotesSS.Visible = False
    End If
    If Worksheets("ASR").Range("BFL" & rowNum).Value = "Accepted" Then
        SSaccepted.Value = True
        SSRejected.Value = False
    ElseIf Worksheets("ASR").Range("BFL" & rowNum).Value = "Rejected" Then
        SSaccepted.Value = False
        SSRejected.Value = True
    Else:
        SSaccepted.Value = False
        SSRejected.Value = False
    End If

End Sub


Private Sub InsertAchievedContainer5()
    '**CONTAINER 5 CURRENT SPEND**'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 235, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 263, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 241, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 245, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 249, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 250, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 252, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 253, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 254, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 255, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 256, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 257, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 258, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 259, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 260, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 261, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 262, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 235, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    
    '**CONTAINER 5 BILLING ERRORS**'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 711, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 692, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 693, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 695, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 696, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 698, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 699, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 701, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 702, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 704, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 705, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 707, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 708, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 710, False), "Currency")
    txt1NotesBC.Value = Worksheets("ASR").Range("AAL" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 685, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        BCaccepted.Visible = True
        BCrejected.Visible = True
        lbl1NotesBC.Visible = True
        txt1NotesBC.Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        BCaccepted.Visible = False
        BCrejected.Visible = False
        lbl1NotesBC.Visible = False
        txt1NotesBC.Visible = False
    End If
    If Worksheets("ASR").Range("AAK" & rowNum).Value = "Accepted" Then
        BCaccepted.Value = True
        BCrejected.Value = False
    ElseIf Worksheets("ASR").Range("AAK" & rowNum).Value = "Rejected" Then
        BCaccepted.Value = False
        BCrejected.Value = True
    Else:
        BCaccepted.Value = False
        BCrejected.Value = False
    End If
    
    '**CONTAINER 5 RATE REDUCTIONS**'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 990, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 971, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 972, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 974, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 975, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 977, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 978, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 980, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 981, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 983, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 984, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 986, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 987, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 989, False), "Currency")
    txt1NotesRR.Value = Worksheets("ASR").Range("ALF" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 964, False) <> "" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        RRaccepted.Visible = True
        RRrejected.Visible = True
        lbl1NotesRR.Visible = True
        txt1NotesRR.Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        RRaccepted.Visible = False
        RRrejected.Visible = False
        lbl1NotesRR.Visible = False
        txt1NotesRR.Visible = False
    End If
    If Worksheets("ASR").Range("ALE" & rowNum).Value = "Accepted" Then
        RRaccepted.Value = True
        RRrejected.Value = False
    ElseIf Worksheets("ASR").Range("ALE" & rowNum).Value = "Rejected" Then
        RRaccepted.Value = False
        RRrejected.Value = True
    Else:
        RRaccepted.Value = False
        RRrejected.Value = False
    End If
    
    '**CONTAINER 5 VENDOR SWITCH**'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1243, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1269, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1272, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1273, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1250, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1251, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1253, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1254, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1256, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1257, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1259, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1260, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1262, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1263, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1265, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1266, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1268, False), "Currency")
     txt1NotesVS.Value = Worksheets("ASR").Range("AWA" & rowNum).Value
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1243, False) <> "" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        VSaccepted.Visible = True
        VSrejected.Visible = True
        lbl1NotesVS.Visible = True
        txt1NotesVS.Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        VSaccepted.Visible = False
        VSrejected.Visible = False
        lbl1NotesVS.Visible = False
        txt1NotesVS.Visible = False
    End If
    If Worksheets("ASR").Range("AVZ" & rowNum).Value = "Accepted" Then
        VSaccepted.Value = True
        VSrejected.Value = False
    ElseIf Worksheets("ASR").Range("AVZ" & rowNum).Value = "Rejected" Then
        VSaccepted.Value = False
        VSrejected.Value = True
    Else:
        VSaccepted.Value = False
        VSrejected.Value = False
    End If
    
    '**CONTAINER 5 SERVICE STANDARDIZATION**'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1548, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1551, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1529, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1530, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1532, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1533, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1535, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1536, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1538, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1539, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1541, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1542, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1544, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1545, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1547, False), "Currency")
    txt1NotesSS.Value = Worksheets("ASR").Range("BGT" & rowNum).Value
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1522, False) <> "" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        SSaccepted.Visible = True
        SSRejected.Visible = True
        lbl1NotesSS.Visible = True
        txt1NotesSS.Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        SSaccepted.Visible = False
        SSRejected.Visible = False
        lbl1NotesSS.Visible = False
        txt1NotesSS.Visible = False
    End If
    If Worksheets("ASR").Range("BGS" & rowNum).Value = "Accepted" Then
        SSaccepted.Value = True
        SSRejected.Value = False
    ElseIf Worksheets("ASR").Range("BGS" & rowNum).Value = "Rejected" Then
        SSaccepted.Value = False
        SSRejected.Value = True
    Else:
        SSaccepted.Value = False
        SSRejected.Value = False
    End If

End Sub

Private Sub btnSave_Click()
'**THIS ACTION SUB IS RUN WHEN THE USER CLICKS SAVE, FINDS THE CONTAINER NUMBER AND SAVES IN THAT AREA ON THE ASR**'

    If containNum = 1 Then
        Call SaveCont1
    ElseIf containNum = 2 Then
        Call SaveCont2
    ElseIf containNum = 3 Then
        Call SaveCont3
    ElseIf containNum = 4 Then
        Call SaveCont4
    ElseIf containNum = 5 Then
        Call SaveCont5
    ElseIf containNum = 6 Then
        Call SaveCont6
    ElseIf containNum = 7 Then
        Call SaveCont7
    ElseIf containNum = 8 Then
        Call SaveCont8
    End If
End Sub

Private Sub SaveCont1()
'**SAVE CONTAINER 1**'

'**BILLING ERRORS ACCEPTED/REJECTED AND NOTES**'
    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("VI" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("VI" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("VI" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("VJ" & rowNum).Value = txt1NotesBC.Text
    
    '**RATE REDUCTIONS ACCEPTED/REJECTED AND NOTES**'
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("AGC" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("AGC" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AGC" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AGD" & rowNum).Value = txt1NotesRR.Text
    
    '**VENDOR SWITCH ACCEPTED/REJECTED AND NOTES**'
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("AQX" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("AQX" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AQX" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AQY" & rowNum).Value = txt1NotesVS.Text
    
    '**SERVICE STANDARDIZATIONS ACCEPTED/REJECTED AND NOTES**'
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BBQ" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BBQ" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BBQ" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BBR" & rowNum).Value = txt1NotesSS.Text
End Sub

Private Sub SaveCont2()
'**SAVE CONTAINER 2**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("WP" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("WP" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("WP" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("WQ" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("AHJ" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("AHJ" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AHJ" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AHK" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("ASE" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("ASE" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ASE" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("ASF" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BCX" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BCX" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BCX" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BCY" & rowNum).Value = txt1NotesSS.Text
End Sub

Private Sub SaveCont3()
'**SAVE CONTAINER 3**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("XW" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("XW" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("XW" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("XX" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("AIQ" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("AIQ" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AIQ" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AIR" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("ATL" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("ATL" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ATL" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("ATM" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BEE" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BEE" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BEE" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BEF" & rowNum).Value = txt1NotesSS.Text
End Sub

Private Sub SaveCont4()
'**SAVE CONTAINER 4**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("ZD" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("ZD" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ZD" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("ZE" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("AJX" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("AJX" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AJX" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AJY" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("AUS" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("AUS" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AUS" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AUT" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BFL" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BFL" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BFL" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BFM" & rowNum).Value = txt1NotesSS.Text
End Sub


Private Sub SaveCont5()
'**SAVE CONTAINER 5**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("AAK" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("AAK" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AAK" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AAL" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("ALE" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("ALE" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ALE" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("ALF" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("AVZ" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("AVZ" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AVZ" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AWA" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BGS" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BGS" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BGS" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BGT" & rowNum).Value = txt1NotesSS.Text
End Sub


Private Sub SaveCont6()
'**SAVE CONTAINER 6**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("ABT" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("ABT" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ABT" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("ABU" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("AMN" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("AMN" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AMN" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AMO" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("AXI" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("AXI" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AXI" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AXJ" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BIF" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BIF" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BIF" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BLE" & rowNum).Value = txt1NotesSS.Text
End Sub

Private Sub SaveCont7()
'**SAVE CONTAINER 7**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("ADF" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("ADF" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ADF" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("ADG" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("ANZ" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("ANZ" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("ANZ" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AOA" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("AYU" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("AYU" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AYU" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AYV" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BJR" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BJR" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BJR" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BLF" & rowNum).Value = txt1NotesSS.Text
End Sub

Private Sub SaveCont8()
'**SAVE CONTAINER 8**'

    If BCaccepted.Value = True Then
        Worksheets("ASR").Range("AER" & rowNum).Value = "Accepted"
    ElseIf BCrejected.Value = True Then
        Worksheets("ASR").Range("AER" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("AER" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("AES" & rowNum).Value = txt1NotesBC.Text
    
    If RRaccepted.Value = True Then
        Worksheets("ASR").Range("APL" & rowNum).Value = "Accepted"
    ElseIf RRrejected.Value = True Then
        Worksheets("ASR").Range("APL" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("APL" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("APM" & rowNum).Value = txt1NotesRR.Text
    
    If VSaccepted.Value = True Then
        Worksheets("ASR").Range("BAG" & rowNum).Value = "Accepted"
    ElseIf VSrejected.Value = True Then
        Worksheets("ASR").Range("BAG" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BAG" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BAH" & rowNum).Value = txt1NotesVS.Text
    
    If SSaccepted.Value = True Then
        Worksheets("ASR").Range("BLD" & rowNum).Value = "Accepted"
    ElseIf SSRejected.Value = True Then
        Worksheets("ASR").Range("BLD" & rowNum).Value = "Rejected"
    Else
        Worksheets("ASR").Range("BLD" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BLG" & rowNum).Value = txt1NotesSS.Text
End Sub


    
